(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      2447,         74]
NotebookOptionsPosition[      1893,         49]
NotebookOutlinePosition[      2408,         71]
CellTagsIndexPosition[      2325,         66]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"<<", "ThinFilmNLS`"}]], "Input",
 CellChangeTimes->{{3.5999530442798643`*^9, 3.599953045329866*^9}, {
  3.600384923308375*^9, 3.6003849316693864`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "AbelesS"}]], "Input",
 CellChangeTimes->{{3.6003849358103924`*^9, 3.600384937480395*^9}}],

Cell[BoxData[
 StyleBox["\<\"\\\"AbelesS[\\\\\\\"pol\\\\\\\",\[Omega],{{\\!\\(\\*\
SubscriptBox[\\(\[Theta]\\), \\(0\\)]\\),\\!\\(\\*SubscriptBox[\\(n\\), \
\\(0\\)]\\)},{\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \
\\(1\\)]\\),\\!\\(\\*SubscriptBox[\\(n\\), \\(1\\)]\\),\\!\\(\\*SubscriptBox[\
\\(d\\), \\(1\\)]\\)}..{\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(k\\)]\\),\\!\
\\(\\*SubscriptBox[\\(n\\), \\(k\\)]\\),\\!\\(\\*SubscriptBox[\\(d\\), \
\\(k\\)]\\)},{\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(k + \
1\\)]\\),\\!\\(\\*SubscriptBox[\\(n\\), \\(k + 1\\)]\\)}}] calculates the \
total system transfer matrix at frequency \[Omega] with specified material \
refaction angles \\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(i\\)]\\), \
refractive indices \\!\\(\\*SubscriptBox[\\(n\\), \\(i\\)]\\), and thin film \
layer thicknesses \\!\\(\\*SubscriptBox[\\(d\\), \\(i\\)]\\).  Eq. \
15\\\"\"\>", "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.6003849381603956`*^9},
 CellTags->"Info3600363338-3499946"]
}, Open  ]]
},
WindowSize->{707, 787},
WindowMargins->{{478, Automatic}, {-4, Automatic}},
ShowSelection->True,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3600363338-3499946"->{
  Cell[878, 31, 999, 15, 77, "Print",
   CellTags->"Info3600363338-3499946"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3600363338-3499946", 2223, 60}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 175, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[757, 27, 118, 2, 31, "Input"],
Cell[878, 31, 999, 15, 77, "Print",
 CellTags->"Info3600363338-3499946"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
